home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / b.amadeus vi (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  120 lines
  1. 8 poke56,56:clr:poke53371,0:poke788,49:tq=ti
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 20 poke53281,0:poke53280,0:print"[147]":gosub60000
  4. 30 sys57812"amadeus mouse2.1",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  5. 32 sys57812"amadeus font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 34 sys57812"amadeus sid",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  7. 36 sys49615
  8. 38 d%(1)=74
  9. 40 fori=1to8
  10. 42 readf$(i),n$(i)
  11. 44 sys57812f$(i),dv,0:poke780,0:poke781,0:poke782,d%(i):sys65493
  12. 46 d%(i+1)=peek(175)+1:e(i)=peek(174)+256*peek(175)
  13. 48 next
  14. 50 data"k319-33mozar.mus","[211]ymphony [206]o.33 [203].319"
  15. 51 data"k338-34mozar.mus","[211]ymphony [206]o.34 [203].338"
  16. 52 rem  data"k364-mozart.mus","[211]ymphony [195]oncertante
  17. 53 [131]"k385-35mozar.mus","(NULL)ymphony (NULL)o.35 (NULL).385
  18. 54 data"k425-36mozar.mus","[211]ymphony [206]o.36 [203].425
  19. 55 [131]"k504-38mozar.mus","(NULL)ymphony (NULL)o.38 (NULL).504
  20. 56 data"k543-39mozar.mus","[211]ymphony [206]o.39 [203].543
  21. 57 [131]"k550-40mozar.mus","(NULL)ymphony (NULL)o.40 (NULL).550
  22. 58 data"k551-41mozar.mus","[211]ymphony [206]o.41 [203].551
  23. 60 [139]ti[179]tq[170]150[167]60
  24. 64 ml[178]64[172]256:mv[178]ml[170]156:v[178]53248
  25. 66 [151]mv[170]1,158
  26. 68 [151]v[170]21,0:[158]ml:[158]ml[170]6,14[172]64
  27. 70 [153]"load":[151]53272,31:[158]ml[170]126,0,38,0,24,254,255,14,4
  28. 78 [158]ml[170]30,3,36,2,9,255,6
  29. 80 [158]ml[170]30,2,35,1,8,160,3[170]16
  30. 88 [153]"print";
  31. 90 [158]ml[170]27,2,"str$ave (NULL)arquis'
  32. 92 print"";
  33. 94 sysml+12,16,3,"[212] [200] [197]"
  34. 100 sysml+12,5,4,"[176][192][174] [176][174][176][174] [176][192][174] [178][192][174] [176][192][174] [174] [176] [176][192][174]
  35. 102 [158]ml[170]12,5,5,"-tan< (NULL)/exp(NULL) -tan< (NULL) (NULL) -tan  (NULL) (NULL) /tan^
  36. 104 sysml+12,5,6,"[189] [173] [189]  [173] [189] [173] [177][192][189] [173][192][189] [173][192][189] [173][192][189]"
  37. 110 sysml+27,7,"[211] [217] [205] [208] [200] [207] [206] [201] [197] [211]
  38. 112 [158]ml[170]39,160
  39. 120 [158]ml[170]30,3,26,12,23,255,6
  40. 122 [158]ml[170]30,2,25,11,22,160,3[170]16
  41. 130 [158]ml[170]30,29,36,12,23,255,6
  42. 132 [158]ml[170]30,28,35,11,22,160,3[170]16
  43. 140 [158]ml[170]12,30,12,"cont(NULL)(NULL)atn(NULL)cmdcmdcmdcmd(NULL)(NULL)(NULL)chr$cmdcmdcmdcmdcmdcmdopen-tantantantantantan<contcmdcmdcmdcmdcmdcmd(NULL)(NULL)atn(NULL)cmdcmdcmdcmdatn(NULL)(NULL)"
  44. 142 [158]ml[170]12,28,17,"open-tantantantantantan<cmdcmdcmdcmdcmdcmdcont(NULL)(NULL)(NULL)chr$cmdcmdcmdcmdright$(NULL)asc(NULL)cmdcmdcmdcmdcmdcmdopen-tantantantantantan<cmdcmdcmdcmdcmdcmdcont(NULL)(NULL)right$(NULL)"
  45. 150 [158]ml[170]15,1,29,34,12,13
  46. 152 [158]ml[170]15,2,29,34,15,16
  47. 154 [158]ml[170]15,3,29,34,18,19
  48. 156 [158]ml[170]15,4,29,34,21,21
  49. 160 [129]i[178]1[164]8
  50. 162 [158]ml[170]12,4,12[170]i,n$(i)
  51. 164 [158]ml[170]15,4[170]i,3,24,12[170]i,12[170]i
  52. 166 [130]
  53. 200 [158]ml[170]9
  54. 202 [143] print"             "rg%;cr%
  55. 204 [139]rg%[167][158]ml[170]36,rg%,255,1:[158]ml[170]24,2:[158]ml[170]36,rg%,255,14
  56. 210 [139]cr%[167]230
  57. 220 [137]200
  58. 230 [139]cr%[178]1[167][141]300:[137]200 [143] play
  59. 240 [139]cr%[178]2[167][141]400:[137]200:[143] play all
  60. 250 [139]cr%[178]3[167][141]500:[137]200:[143] info
  61. 260 [139]cr%[178]4[167][158]ml[170]3:[151]49152,0:[158]49935:[153]"load":[137]40000:[143] quit
  62. 268 g[178]cr%
  63. 270 [158]ml[170]30,2,25,11,22,160,3[170]16
  64. 272 [129]i[178]1[164]8
  65. 274 [158]ml[170]12,4,12[170]i,n$(i)
  66. 276 [130]
  67. 280 [158]ml[170]36,g,255,14[170]128
  68. 290 [137]200
  69. 300 [139]g[178]0[167][142]
  70. 302 p[178]1:[141]500:p[178]0
  71. 310 [151]781,0:[151]782,d%(g[171]4)
  72. 320 [158]49664:[151]49152,7
  73. 330 [158]ml[170]9
  74. 332 [139][194](49152)[178]0[167]350
  75. 340 [139]l2%[178]0[167]330
  76. 350 [151]49152,0:[158]49897
  77. 352 [158]ml[170]42,168
  78. 360 [142]
  79. 400 [129]g[178]5[164]12
  80. 410 [141]300
  81. 420 [130]
  82. 430 [142]
  83. 500 [139](g[179]1)[176](g[177]12)[167][142]
  84. 502 [158]ml[170]39,168:[158]ml[170]42,160
  85. 510 [158]ml[170]30,3,36,13,21,255,6
  86. 520 [158]ml[170]30,2,35,12,20,255,3[170]16
  87. 530 [151]214,13:[153]:[153][163]5);
  88. 572 s[178]d%(g[171]4)[172]256
  89. 574 t[178]s[170][194](s)[170][194](s[170]1)[172]256[170][194](s[170]2)[170][194](s[170]3)[172]256[170][194](s[170]4)[170][194](s[170]5)[172]256[170]6
  90. 580 [129]i[178]2[164]200:[139][194](i[170]t)[178]0[167]i[178]200:[137]590
  91. 582 [153][199]([194](i[170]t));:[139][194](i[170]t)[178]13[167][153]"";
  92. 590 [130]
  93. 592 [139]p[167][142]
  94. 600 [158]ml[170]9
  95. 610 [139]l2%[178]0[167]600
  96. 620 [158]ml[170]42,168
  97. 630 [142]
  98. 999 [137]999
  99. 10000 d[178][194](186):n$[178]"0:b.amadeus vi":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  100. 40000 [151]53269,0
  101. 40002 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  102. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  103. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  104. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  105. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  106. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  107. 40060 [130]:[142]
  108. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  109. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  110. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  111. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  112. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]8:[153]z$:[130]
  113. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  114. 60030 z$(0)[178]"(NULL)left$val atn(NULL)atnstr$val(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)left$(NULL)(NULL)right$val(NULL) (NULL)right$"
  115. 60040 z$(2)[178]"by str$ave (NULL)arquis
  116. 60050 z$(4)="(c) 2000 by [202] & [198] [208]ublishing, [201]nc."
  117. 60080 z$(6)="1-318-868-8727
  118. 60090 [151]214,12:[153]:[129]i[178]0[164]9:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  119. 60100 [129]i[178]0[164]6:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  120.